home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Shareware World / Utilities / Text Processing / AlphaLite.6.52 / Tcl / Modes / html.tcl next >
Text File  |  1997-04-01  |  23KB  |  626 lines
  1. #================================================================================
  2. #
  3. # html.tcl, HTML mode 1.4.1:  macros and bindings for editing HTML documents.
  4. #
  5. #================================================================================
  6. # 
  7. # version 0.24 (16 July 95) by Scott W. Brim <swb1@cornell.edu>
  8. # version 1.0 -- 1.4.1 (April 97) by Johan Linde <jl@theophys.kth.se>
  9. #
  10. # Copyright 1996, 1997 by Johan Linde. 
  11. # This software may be used freely, and distributed freely, as long as 
  12. # the receiver is not obligated in any way by receiving it.
  13. #
  14. # Original ideas taken from Marc Andreesen's html.el and Tom Scavo's latex.tcl.
  15. #
  16. # If you make improvements to this file, please share them!
  17. #
  18. #                                     Johan Linde <jl@theophys.kth.se>
  19. #
  20. #================================================================================
  21.  
  22. # called by Alpha to load HTML in.  
  23. proc htmlDummy {} {}
  24. proc htmlMenu {} {}
  25.  
  26. #===============================================================================
  27. # Global variables and their management
  28. #===============================================================================
  29.  
  30. if {![info exists htmlMenu]} {set htmlMenu    "•135"}
  31.  
  32.  
  33. # Home pages, set the old one if it exists.
  34. if {[info exists homePagePath] && [string length $homePagePath] && 
  35. [info exists HTMLmodeVars(baseURL)] && [string length $HTMLmodeVars(baseURL)]} {
  36.     if {![info exists HTMLmodeVars(basePath)]} {set HTMLmodeVars(basePath) ""}
  37.     newModeVar HTML homePages [list [list [string trimright $homePagePath :] $HTMLmodeVars(baseURL) $HTMLmodeVars(basePath) "index.html"]] 0
  38.     lappend modifiedModeVars {homePages HTMLmodeVars}
  39. } else {
  40.     newModeVar HTML homePages {} 0
  41. }
  42.  
  43.  
  44. # Unsetting old flags and variables which may be defined in arrdefs.tcl 
  45. catch {unset HTMLmodeVars(dlEntries)}
  46. catch {unset HTMLmodeVars(useCtlCmd)}
  47. catch {unset HTMLmodeVars(allContainers)}
  48. catch {unset HTMLmodeVars(quotedAttrs)}
  49. catch {unset HTMLmodeVars(htmlBindPrefix)}
  50. catch {unset HTMLmodeVars(htmlSBindPrefix)}
  51. catch {unset HTMLmodeVars(htmlMenuPrefix)}
  52. catch {unset HTMLmodeVars(htmlSMenuPrefix)}
  53. catch {unset HTMLmodeVars(URLAttrs)}
  54. catch {unset HTMLmodeVars(ColorAttrs)}
  55. catch {unset HTMLmodeVars(elemAttrsForAll)}
  56. catch {unset HTMLmodeVars(useStatusBar)}
  57. catch {unset HTMLmodeVars(baseURL)}
  58. catch {unset HTMLmodeVars(basePath)}
  59.  
  60. # Line width
  61. newModeVar HTML fillColumn 75 0
  62. newModeVar HTML leftFillColumn 0 0
  63. # word breaking and word wrapping
  64. newModeVar HTML wordBreak {\w+} 0
  65. newModeVar HTML wordBreakPreface {(\W)} 0
  66. newModeVar HTML wrapBreak {[\w_]+} 0
  67. newModeVar HTML wrapBreakPreface {([^\w_])} 0
  68.  
  69. # browsers
  70. if {![info exists browserSig]} {set browserSig MOSS}
  71. newModeVar HTML browsers {MOSS MSIE} 0
  72.  
  73. newModeVar HTML wordWrap        1    1
  74. newModeVar HTML prefixString    "<!-- "    0
  75. newModeVar HTML suffixString    " -->"    0
  76.  
  77. # Paths to footer files.
  78. newModeVar HTML footers {} 0
  79. # Tag color
  80. newModeVar HTML tagColor        blue 0
  81. # Should elements be lower case?
  82. newModeVar HTML useLowerCase    0    1
  83. # Should •'s be inserted?
  84. newModeVar HTML    useTabMarks        1    1
  85. # Is <p> a container?
  86. newModeVar HTML pIsContainer    1    1
  87. # Are LI DT and DD containers 
  88. newModeVar HTML lidtAreContainers 0  1
  89. # A list of URLs, cached, to pick from for insertion
  90. newModeVar HTML URLs            {}    0
  91. # A window cache with frames.
  92. newModeVar HTML windows        {}    0
  93. # When browser is launched, should it be brought to front?
  94. newModeVar HTML    browseInForeground    1    1
  95. # Save without asking when sending file to browser?
  96. newModeVar HTML saveWithoutAsking 0 1
  97. # list of commonly used character entities
  98. newModeVar HTML defaultCommonChars {"less than" "greater than" "ampersand"} 0
  99. newModeVar HTML commonChars $HTMLmodeVars(defaultCommonChars) 0
  100. # Which HTML package?
  101. newModeVar HTML htmlPackageToUse 1 0
  102. # Include event handlers in attribute dialog?
  103. newModeVar HTML inclEventHandler 0  1
  104. # Beep when asking for attributes in the status bar?
  105. newModeVar HTML promptNoisily    1    1
  106. # Input from big windows?
  107. newModeVar HTML useBigWindows     1    1
  108. # Check anchors in links
  109. newModeVar HTML checkAnchors 1 1
  110. # Case sensistive link checking?
  111. newModeVar HTML caseSensitive 0 1
  112. # Check links with Big Brother?
  113. newModeVar HTML useBigBrother 0 1
  114. newModeVar HTML checkInFront 1 1
  115. newModeVar HTML useBBoptions 1 1
  116. newModeVar HTML ignoreRemote 0 1
  117. newModeVar HTML ignoreLocal 0 1
  118. # Folder for HTML manual.
  119. newModeVar HTML manualFolder {} 0
  120.  
  121. # JavaScript stuff
  122. newModeVar HTML JavaScriptColoring 0 1
  123. newModeVar HTML JavaScriptColor    magenta 0
  124. newModeVar HTML stringColor green 0
  125. newModeVar HTML JavaCommentColor red 0
  126. newModeVar HTML elecRBrace 0 1
  127. newModeVar HTML elecLBrace 0 1
  128.  
  129. # These mode variables should not appear in the config dialog.
  130.  
  131. set HTMLinvisibleModeVars(htmlPackageToUse) 1
  132. set HTMLinvisibleModeVars(footers) 1
  133. set HTMLinvisibleModeVars(windows) 1
  134. set HTMLinvisibleModeVars(URLs) 1
  135. set HTMLinvisibleModeVars(defaultCommonChars) 1
  136. set HTMLinvisibleModeVars(commonChars) 1
  137. set HTMLinvisibleModeVars(browserSig) 1
  138. set HTMLinvisibleModeVars(homePages) 1
  139. set HTMLinvisibleModeVars(useBigBrother) 1
  140. set HTMLinvisibleModeVars(browsers) 1
  141. set HTMLinvisibleModeVars(manualFolder) 1
  142.  
  143. # These attributes are URLs.
  144. set htmlURLAttr    {HREF= SRC= LOWSRC= ACTION= USEMAP= BACKGROUND= CODEBASE= PLUGINSPAGE=}
  145. # These element attributes are colors
  146. set htmlColorAttr    {BGCOLOR= TEXT= LINK= VLINK= ALINK= COLOR= BORDERCOLOR=}
  147. # These attributes are windows
  148. set htmlWindowAttr {TARGET=}
  149. # Special cases with URLs, colors and windows
  150. set htmlSpecURL {}
  151. set htmlSpecColor {}
  152. set htmlSpecWindow {}
  153. # These elements can be in document HEAD.
  154. set htmlHeadElements1 {BASE ISINDEX LINK META SCRIPT}
  155. set htmlHeadElements3 {BASE ISINDEX LINK META}
  156. # These elements are plug-ins.
  157. set htmlPlugins {EMBED LIVEAUDIO LIVEVIDEO "QUICKTIME MOVIE" "QUICKTIME VR" REALAUDIO}
  158. # HTML mode version
  159. set htmlVersion 1.41
  160.  
  161. # Used by fillParagraph
  162. set htmlParaCommands {html|head|title|body|h[1-6]|p|div|blockquote|center|address|pre|multicol}
  163. append htmlParaCommands {|br|hr|wbr|basefont|ul|ol|li|dir|menu|dl|dd|dt|form|input}
  164. append htmlParaCommands {|select|option|textarea|caption|table|tr|frameset|frame|noframes}
  165. append htmlParaCommands {|map|area|applet|param|script|noscript|base|link|meta|isindex}
  166.  
  167. #
  168. # Internal Globals
  169. #
  170. set htmlCurSel    ""
  171. set htmlIsSel    0
  172. set htmlExtIsLoaded 0
  173. set html32IsLoaded 0
  174. set htmlAdditionExist 0
  175.  
  176. set htmlIsLoaded 1
  177. if { [catch {source "$HOME:Tcl:Modes:htmlEngine.tcl"}] } {
  178.     set htmlIsLoaded 0
  179.     beep
  180.     alertnote "Loading of htmlEngine.tcl failed"
  181. }
  182.  
  183.  
  184. if { [catch {source "$HOME:Tcl:Modes:htmlElems.tcl"}] } {
  185.     set htmlIsLoaded 0
  186.     beep
  187.     alertnote "Loading of htmlElems.tcl failed"
  188. }
  189.  
  190. if { [catch {source "$HOME:Tcl:Modes:htmlUtils.tcl"}] } {
  191.     set htmlIsLoaded 0
  192.     beep
  193.     alertnote "Loading of htmlUtils.tcl failed"
  194. }
  195.  
  196. if { [catch {source "$HOME:Tcl:Modes:htmlMenu.tcl"}] } {
  197.     set htmlIsLoaded 0
  198.     beep
  199.     alertnote "Loading of htmlMenu.tcl failed"
  200. }
  201.  
  202. if {!$HTMLmodeVars(useBigWindows) && [catch {source "$HOME:Tcl:Modes:htmlExtra.tcl"}] } {
  203.     set htmlIsLoaded 0
  204.     beep
  205.     alertnote "Loading of htmlExtra.tcl failed"
  206. }
  207.  
  208. #
  209. # Read custom elements
  210. #
  211.  
  212. proc htmlReadAdditions {} {
  213.     global PREFS htmlElemAttrRequired1 htmlElemAttrOptional1 htmlElemAttrChoices1
  214.     global htmlElemAttrNumber1 htmlElemEventHandler1 htmlElemKeyBinding htmlElemProc
  215.     global htmlExtIsLoaded htmlURLAttr htmlColorAttr htmlWindowAttr htmlPlugins
  216.     global htmlSpecURL htmlSpecColor htmlSpecWindow htmlVersion htmlShownWarning
  217.  
  218.     message "Loading custom elements…"
  219.     
  220.     htmlExtensions
  221.     set htmlExtIsLoaded 1
  222.     rename htmlExtensions ""
  223.     
  224.     if {[catch {open $PREFS:HTMLadditions.tcl r} fid]} {
  225.         alertnote "Could not open the file HTMLAdditions.tcl with your custom elements."
  226.         return
  227.     }
  228.     set additions [read -nonewline $fid]
  229.     close $fid
  230.     set lines [split $additions "\n"]
  231.     set version [lindex $lines 0]
  232.     if {$version == $htmlVersion} {htmlReadAdditions0 $lines; return}
  233.     if {$version > $htmlVersion} {
  234.         regsub "\[^\n\]+" $additions $htmlVersion additions
  235.         set fid [open $PREFS:HTMLadditions.tcl w]
  236.         puts $fid $additions
  237.         close $fid
  238.         htmlReadAdditions0 $lines
  239.         return
  240.     }
  241.     set allattrs [htmlGetAllAttrs]
  242.     set newLines "$htmlVersion\n"
  243.     set changed 0
  244.     set tmpSpecURL ""
  245.     set tmpSpecColor ""
  246.     set tmpSpecWindow ""
  247.     foreach line [lrange $lines 1 end] {
  248.         set elem [lindex $line 0]
  249.         set command [lindex $line 1]
  250.         set elemExists [info exists htmlElemAttrOptional1($elem)]
  251.         if {$elemExists} {
  252.             foreach x [list AttrOptional1 AttrRequired1 AttrNumber1 AttrChoices1 EventHandler1] {
  253.                 if {[info exists htmlElem${x}($elem)]} {
  254.                     set $x [string toupper [set htmlElem${x}($elem)]]
  255.                 } else {
  256.                     set $x ""
  257.                 }
  258.             }
  259.             set attrs [concat $AttrOptional1 $AttrRequired1 $EventHandler1]
  260.             foreach at $attrs {
  261.                 if {[string trimright $at =] == $at} {
  262.                     lappend attrs "${at}="
  263.                 } else {
  264.                     lappend attrs [string trimright $at =]
  265.                 }
  266.             }
  267.         } else {
  268.             set attrs {}
  269.         }
  270.         set var [lindex $command 1]
  271.         foreach ucw [list URL Color Window] {
  272.             if {$var == "html${ucw}Attr"} {
  273.                 set att [lindex $command 2]
  274.                 if {[lsearch -exact [set html${ucw}Attr] $att] >=0} {
  275.                     # Already defined.
  276.                     set changed 1
  277.                 } elseif {[lsearch -exact $allattrs $att] >=0 || [lsearch -exact $allattrs [string trimright $att =]] >=0} {
  278.                     # Used for some other kind of attr.
  279.                     lappend ${ucw}SpecMaybe $att
  280.                     set changed 1
  281.                 } elseif {[lsearch -exact $attrs $att] >= 0} {
  282.                     # Attr already exists for elem.
  283.                     lappend ${ucw}Maybe $att
  284.                     set changed 1
  285.                 } else {
  286.                     append newLines "$line\n"
  287.                 }
  288.             }
  289.             if {$var == "htmlSpec${ucw}"} {
  290.                 set tmpadd [lrange $command 2 end]
  291.                 foreach x $tmpadd {
  292.                     regexp {[^!=]!?=(.*)} $x dum tmp
  293.                     # Only add if attr doesn't exist.
  294.                     if {[lsearch -exact $attrs $tmp] >= 0} {
  295.                         set changed 1
  296.                         set where [lsearch -exact $tmpadd $x]
  297.                         set tmpadd [lreplace $tmpadd $where $where]
  298.                     }
  299.                 }
  300.                 if {[llength $tmpadd]} {
  301.                     append newLines "[list $elem] \{lappend htmlSpec${ucw} $tmpadd\}\n"
  302.                     append tmpSpec${ucw} " " $tmpadd
  303.                 }
  304.             }
  305.         }
  306.         if {[lsearch {htmlURLAttr htmlColorAttr htmlWindowAttr htmlSpecURL \
  307.         htmlSpecColor htmlSpecWindow} $var] < 0} {
  308.             # If element doesn't exist, GO!
  309.             if {!$elemExists} {
  310.                 append newLines "$line\n"
  311.                 regsub "html" $command "tmp" command
  312.                 eval $command
  313.                 continue
  314.             }
  315.             # Skip these vars if element exists.
  316.             if {[string match "htmlElemKeyBinding*" $var] || [string match "htmlElemProc*" $var] ||
  317.             $var == "htmlPlugins"} {
  318.                 set changed 1
  319.                 continue
  320.             }
  321.             regexp {([^\(]+)\(([^\)]+)\)[ ]+(.+)} [lrange $command 1 end] dummy var arg added
  322.             set added [string trimleft [string trimright $added \}] \{]
  323.             foreach c $added {
  324.                 if {$var == "htmlElemAttrChoices1"} {
  325.                     regexp {[^=]*=} $c tmp
  326.                     # Don't add choices if they exist or if attr isn't a choice attr.
  327.                     if {[lsearch -exact $AttrChoices1 $c] >= 0 || ([lsearch -exact $attrs $tmp] >= 0 &&
  328.                     [lsearch $AttrChoices1 "${tmp}*"] < 0) } {
  329.                         set changed 1
  330.                         set where [lsearch -exact $added $c]
  331.                         set added [lreplace $added $where $where]
  332.                     }
  333.                 } else {
  334.                     if {$var == "htmlElemAttrNumber1"} {
  335.                         regexp {[^=]*=} $c tmp
  336.                     } else {
  337.                         set tmp [string toupper $c]
  338.                     }
  339.                     # Don't add attrs which exist.
  340.                     if {[lsearch -exact $attrs $tmp] >= 0} {
  341.                         set changed 1
  342.                         set where [lsearch -exact $added $c]
  343.                         set added [lreplace $added $where $where]
  344.                     }
  345.                 }
  346.             }
  347.             if {[llength $added]} {
  348.                 append newLines "[list $elem] \{lappend ${var}($arg) $added\}\n"
  349.                 regsub "html" $var "tmp" var
  350.                 eval "lappend ${var}($arg) $added"
  351.             }
  352.         }
  353.     }
  354.     foreach ucw [list URL Color Window] {
  355.         if {[info exists ${ucw}SpecMaybe]} {
  356.             foreach m [set ${ucw}SpecMaybe] {
  357.                 foreach e [array names tmpElemAttrRequired1] {
  358.                     if {[lsearch -exact $tmpElemAttrRequired1($e) $m] >= 0 && \
  359.                     [lsearch -exact [set tmpSpec$ucw] "$e!=[string trimright $m =]"] < 0} {
  360.                         append newLines "[list $e] \{lappend htmlSpec${ucw} ${e}=[string trimright $m =]\}\n"
  361.                     } 
  362.                 }
  363.                 foreach e [array names tmpElemAttrOptional1] {
  364.                     if {[lsearch -exact $tmpElemAttrOptional1($e) $m] >= 0 && \
  365.                     [lsearch -exact [set tmpSpec$ucw] "$e!=[string trimright $m =]"] < 0} {
  366.                         append newLines "[list $e] \{lappend htmlSpec${ucw} ${e}=[string trimright $m =]\}\n"
  367.                     } 
  368.                 }
  369.             }
  370.         }
  371.         if {[info exists ${ucw}Maybe]} {
  372.             foreach m [set ${ucw}Maybe] {
  373.                 set foundit 0
  374.                 foreach e [array names tmpElemAttrRequired1] {
  375.                     if {[lsearch -exact $tmpElemAttrRequired1($e) $m] >= 0 && \
  376.                     [lsearch -exact [set tmpSpec$ucw] "$e!=[string trimright $m =]"] < 0} {
  377.                         append newLines "[list $e] \{lappend html${ucw}Attr $m\}\n"
  378.                         set foundit 1
  379.                         break
  380.                     } 
  381.                 }
  382.                 if {$foundit} {continue}
  383.                 foreach e [array names tmpElemAttrOptional1] {
  384.                     if {[lsearch -exact $tmpElemAttrOptional1($e) $m] >= 0 && \
  385.                     [lsearch -exact [set tmpSpec$ucw] "$e!=[string trimright $m =]"] < 0} {
  386.                         append newLines "[list $e] \{lappend html${ucw}Attr $m\}\n"
  387.                         break
  388.                     } 
  389.                 }
  390.             }
  391.         }    
  392.     }
  393.     
  394.     if {$newLines != "$htmlVersion\n"} {htmlReadAdditions0 [split [string trimright $newLines "\n"] "\n"]}
  395.     if {$changed} {
  396.         beep
  397.         if {[lindex [dialog -w 300 -h 270 -b "Clean up" 20 240 100 260 \
  398.         -b "Leave it" 120 240 200 260 -t "Some of your custom elements are supported by this\
  399.         version of HTML mode." 10 10 290 45 -t "Choose 'Clean up' to update your file with custom\
  400.         elements and to avoid this alert next time you run Alpha.\
  401.         If you do so, some elements will not be defined correctly if you go back to\
  402.         a previous version of HTML mode." 10 50 290 150 -t "Choose 'Leave it' to leave your file\
  403.         with custom elements untouched. If you do so, the submenu 'Extend', where you can add new custom\
  404.         elements, will be disabled." 10 160 290 225] 1]} {
  405.             set htmlShownWarning 1
  406.             return
  407.         }
  408.     }
  409.     if {$newLines == "$htmlVersion\n"} {
  410.         removeFile $PREFS:HTMLadditions.tcl
  411.     } else {
  412.         set fid [open $PREFS:HTMLadditions.tcl w]
  413.         puts -nonewline $fid $newLines
  414.         close $fid
  415.     }
  416. }
  417.  
  418. proc htmlReadAdditions0 {lines} {
  419.     global PREFS htmlElemAttrRequired1 htmlElemAttrOptional1 htmlElemAttrChoices1
  420.     global htmlElemAttrNumber1 htmlElemEventHandler1 htmlElemKeyBinding htmlElemProc
  421.     global htmlExtIsLoaded htmlURLAttr htmlColorAttr htmlWindowAttr htmlPlugins
  422.     global htmlSpecURL htmlSpecColor htmlSpecWindow htmlAdditionExist htmlShownWarning
  423.     
  424.     foreach line [lrange $lines 1 end] {
  425.         if {[catch {eval [lindex $line 1]}]} {
  426.             alertnote "There is an error in the file HTMLAdditions.tcl with your custom elements."
  427.             set htmlShownWarning 1
  428.             break
  429.         }
  430.     }
  431.     set htmlAdditionExist 1
  432. }
  433.  
  434. #
  435. # Color support
  436. #
  437.  
  438. proc htmlColorizing {} {
  439.      global HTMLmodeVars HTMLwords htmlElemAttrOptional1 htmlElemAttrRequired1
  440.      global htmlExtIsLoaded htmlElemEventHandler1
  441.      
  442.      set HTMLKeyWords {}
  443.     if {[info exists HTMLwords]} {set HTMLKeyWords [concat $HTMLKeyWords $HTMLwords]}
  444.  
  445.     if {$HTMLmodeVars(JavaScriptColoring)} {
  446.         if {!$htmlExtIsLoaded} {
  447.             htmlExtensions
  448.             set htmlExtIsLoaded 1
  449.             rename htmlExtensions ""
  450.         }
  451.         set allHTMLwords [array names htmlElemAttrOptional1]
  452.         foreach elem $allHTMLwords {
  453.             lappend allHTMLkeywords "<${elem}" "/${elem}"
  454.             if {[info exists htmlElemAttrRequired1($elem)]} {
  455.                 foreach attr $htmlElemAttrRequired1($elem) {
  456.                     if {[lsearch -exact $allHTMLkeywords $attr] < 0} {
  457.                         lappend allHTMLkeywords $attr
  458.                     }
  459.                 }
  460.             }    
  461.             foreach attr $htmlElemAttrOptional1($elem) {
  462.                 if {[lsearch -exact $allHTMLkeywords $attr] < 0} {
  463.                     lappend allHTMLkeywords $attr
  464.                 }
  465.             }
  466.         }
  467.         
  468.         lappend allHTMLkeywords "<INPUT" "<!--" "-->" "FILE=" "FORM=" "#INCLUDE" "/#INCLUDE" "#LASTMODIFIED" "/#LASTMODIFIED"
  469.         set JavaScriptWords {break continue for in function if else new return this var while with true false }
  470.         foreach elem [array names htmlElemEventHandler1] {
  471.             foreach event $htmlElemEventHandler1($elem) {
  472.                 if {[lsearch -exact $JavaScriptWords $event] < 0} {
  473.                     lappend JavaScriptWords $event
  474.                 }
  475.             }
  476.         }
  477.         regModeKeywords -i "<" -i ">"  -I $HTMLmodeVars(tagColor) -e "//" -b "/*" "*/" \
  478.         -c $HTMLmodeVars(JavaCommentColor) \
  479.         -s $HTMLmodeVars(stringColor) -k $HTMLmodeVars(JavaScriptColor) \
  480.         HTML $JavaScriptWords
  481.         regModeKeywords -a -k $HTMLmodeVars(tagColor) \
  482.         HTML [concat $HTMLKeyWords $allHTMLkeywords]    
  483.     } else {
  484.         regModeKeywords -b "<" ">" -c $HTMLmodeVars(tagColor) \
  485.         -k $HTMLmodeVars(tagColor) HTML $HTMLKeyWords
  486.     }
  487. }
  488.  
  489. # Change color when a color variable is changed.
  490. proc htmlChangeColorizing {name1 name2 op} {
  491.     global HTMLmodeVars
  492.     if {$name2 == "JavaScriptColoring" } {
  493.         htmlColorizing
  494.         message "Coloring may not change until you switch to another window."
  495.     } elseif {$name2 == "tagColor"} {
  496.         if {!$HTMLmodeVars(JavaScriptColoring)} {
  497.             regModeKeywords -a -c $HTMLmodeVars(tagColor) HTML
  498.         } else {
  499.             htmlColorizing
  500.             message "Coloring may not change until you switch to another window."
  501.         }
  502.     } elseif {$name2 == "JavaScriptColor" && $HTMLmodeVars(JavaScriptColoring)} {
  503.         htmlColorizing
  504.         message "Coloring may not change until you switch to another window."
  505.     } elseif {$name2 == "JavaCommentColor" && $HTMLmodeVars(JavaScriptColoring)} {
  506.         regModeKeywords -a -c $HTMLmodeVars(JavaCommentColor) HTML
  507.     }
  508.     centerRedraw
  509. }
  510.  
  511. proc htmlShadowAttrUse {name1 name2 op} {
  512.     global HTMLmodeVars htmlMenu
  513.     enableMenuItem $htmlMenu "Use Attributes" [expr !$HTMLmodeVars(useBigWindows)]
  514. }
  515.  
  516. trace variable HTMLmodeVars(tagColor) w htmlChangeColorizing
  517. trace variable HTMLmodeVars(JavaScriptColor) w htmlChangeColorizing
  518. trace variable HTMLmodeVars(JavaScriptColoring) w htmlChangeColorizing
  519. trace variable HTMLmodeVars(JavaCommentColor) w htmlChangeColorizing
  520. trace variable HTMLmodeVars(useBigWindows) w htmlShadowAttrUse
  521. trace variable browserSig w htmlToggleBrowser2
  522.  
  523. # Dialog to set HTML mode variables.
  524. proc HTMLmodifyFlags {} {
  525.     global HTMLmodeVars modifiedModeVars colorInds tcl_var_procs
  526.     set colors {none blue cyan green magenta red white yellow}
  527.     foreach c [array names colorInds] {
  528.         if {[regexp {color} $c]} {lappend colors $c}
  529.     }
  530.     set box "-t {HTML mode Settings} 150 10 300 30 \
  531.     -m {General General JavaScript {Checking links} {Word Wrapping}} 150 40 300 60 \
  532.     -n General \
  533.     -c {Bring browser to front when sending a window to it} $HTMLmodeVars(browseInForeground) 10 70 450 85\
  534.     -c {Save window without asking when sending it to the browser} $HTMLmodeVars(saveWithoutAsking) 10 90 450 105 \
  535.     -c {Set tags in lower case} $HTMLmodeVars(useLowerCase) 10 110 450 125 \
  536.     -c {Use tab marks (•)} $HTMLmodeVars(useTabMarks) 10 130 450 145 \
  537.     -c {<P> has a closing tag </P>} $HTMLmodeVars(pIsContainer) 10 150 450 165 \
  538.     -c {<LI>, <DT> and <DD> have closing tags} $HTMLmodeVars(lidtAreContainers) 10 170 450 185\
  539.     -c {Give attributes in dialog windows, not in the status bar} $HTMLmodeVars(useBigWindows) 10 190 450 205 \
  540.     -c {Beep for each attribute (applies only if you use the status bar)} $HTMLmodeVars(promptNoisily) 10 210 450 225 \
  541.     -t {Color of HTML tags:} 10 240 150 260 \
  542.     -m [list [concat $HTMLmodeVars(tagColor) $colors]] 160 240 310 260 \
  543.     -n JavaScript \
  544.     -c {Color JavaScript keywords} $HTMLmodeVars(JavaScriptColoring) 10 70 450 85\
  545.     -c {Electric left braces} $HTMLmodeVars(elecLBrace) 10 90 450 105 \
  546.     -c {Electric right braces} $HTMLmodeVars(elecRBrace) 10 110 450 125 \
  547.     -c {Include event handlers in attribute dialog} $HTMLmodeVars(inclEventHandler) 10 130 450 145 \
  548.     -t {The settings below apply only if you color JavaScript keywords} 10 160 450 175 \
  549.     -t {Color of JavaScript keywords:} 10 190 210 205 \
  550.     -m [list [concat $HTMLmodeVars(JavaScriptColor) $colors]] 220 190 360 210 \
  551.     -t {Color of JavaScript comments:} 10 220 215 235 \
  552.     -m [list [concat $HTMLmodeVars(JavaCommentColor) $colors]] 220 220 360 240 \
  553.     -t {Color of strings:} 10 250 220 265 \
  554.     -m [list [concat $HTMLmodeVars(stringColor) $colors]] 220 250 360 270 \
  555.     -n {Checking links} \
  556.     -t {These settings apply when you check links with Alpha} 10 70 450 85 \
  557.     -c {Check anchors} $HTMLmodeVars(checkAnchors) 10 90 450 105 \
  558.     -c {Case sensitive checking (slower)} $HTMLmodeVars(caseSensitive) 10 110 450 125 \
  559.     -t {These settings apply when you check links with Big Brother} 10 135 450 150\
  560.     -c {Bring Big Brother to front when checking links} $HTMLmodeVars(checkInFront) 10 155 450 170\
  561.     -c {Use Big Brother's link check options} $HTMLmodeVars(useBBoptions) 10 175 450 190\
  562.     -c {Ignore remote links (if you don't use Big Brother's option)} $HTMLmodeVars(ignoreRemote) 30 195 450 210\
  563.     -c {Ignore local links (if you don't use Big Brother's option)} $HTMLmodeVars(ignoreLocal) 30 215 450 230\
  564.     -n {Word Wrapping} \
  565.     -t {Line width:} 10 70 90 85 -e [list $HTMLmodeVars(fillColumn)] 100 70 140 85 \
  566.     -t characters 145 70 300 85 \
  567.     -t {The variables below determine which characters build up words, and the word wrapping. Normally\
  568.     there is no need to change them. Read about them in general manual if you want to change them.} \
  569.     10 100 450 160 \
  570.     -t wordBreak: 10 170 150 185 -e [list $HTMLmodeVars(wordBreak)] 155 170 450 185 \
  571.     -t wordBreakPreface: 10 195 150 210 -e [list $HTMLmodeVars(wordBreakPreface)] 155 195 450 210 \
  572.     -t wrapBreak: 10 220 150 235 -e [list $HTMLmodeVars(wrapBreak)] 155 220 450 235 \
  573.     -t wrapBreakPreface: 10 245 150 260 -e [list $HTMLmodeVars(wrapBreakPreface)] 155 245 450 260"
  574.     set values [eval [concat dialog -w 460 -h 320 -b OK 20 290 85 310 -b Cancel 110 290 175 310 $box]]
  575.     if {[lindex $values 1]} {return}
  576.     set i 2
  577.     foreach flag [list browseInForeground saveWithoutAsking useLowerCase useTabMarks pIsContainer lidtAreContainers \
  578.         useBigWindows promptNoisily tagColor JavaScriptColoring elecLBrace \
  579.         elecRBrace inclEventHandler JavaScriptColor JavaCommentColor stringColor \
  580.         checkAnchors caseSensitive checkInFront useBBoptions ignoreRemote ignoreLocal \
  581.         fillColumn wordBreak wordBreakPreface wrapBreak wrapBreakPreface] {
  582.         global $flag
  583.         incr i
  584.         set val [lindex $values $i]
  585.         if {$HTMLmodeVars($flag) != $val} {
  586.             set $flag $val
  587.             set HTMLmodeVars($flag) $val
  588.             lappend modifiedModeVars [list $flag HTMLmodeVars]
  589.             
  590.             if {[info exists tcl_var_procs($flag)]} {
  591.                 $tcl_var_procs($flag) $flag
  592.             }
  593.         }
  594.     }
  595. }
  596.  
  597.  
  598. if {$htmlIsLoaded} {
  599.     if {[file exists $PREFS:HTMLadditions.tcl]} {
  600.         if {[catch {htmlReadAdditions}]} {alertnote "An error occured while reading your custom elements."}
  601.     }
  602.     rename htmlReadAdditions ""
  603.     rename htmlReadAdditions0 ""
  604.     htmlBindKeys
  605.     rename htmlBindKeys ""
  606.     message "Building HTML menu…"
  607.     htmlBuildMenu
  608.     htmlColorizing
  609.     # Check that all home page folders exist.
  610.     set tmp_notfind ""
  611.     foreach tmp_hp $HTMLmodeVars(homePages) {
  612.         if {![file exists [lindex $tmp_hp 0]] || ![file isdirectory [lindex $tmp_hp 0]]} {
  613.             alertnote "Can't find the folder for the home page [lindex $tmp_hp 1][lindex $tmp_hp 2]"
  614.             set tmp_notfind "[lindex $tmp_hp 1][lindex $tmp_hp 2]"
  615.         }
  616.     }
  617.     if {$tmp_notfind != ""} {htmlHomePages $tmp_notfind}
  618.     message "HTML initialization complete."
  619.     catch {unset tmp_notfind tmp_hp}
  620. } else {
  621.     message "HTML initialization failed."
  622. }
  623.  
  624. unset htmlIsLoaded
  625.  
  626.